home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / HyperCard / HyperCard 1.2.2 International / HyperCard Dutch (K-1.2.2) / Meer stapels / Onkostendeclaratie / card_2971.txt < prev    next >
Text File  |  1988-12-21  |  5KB  |  268 lines
  1. -- card: 2971 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2664
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 6002
  11. -- rect: left=6 top=97 right=264 bottom=92
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 18
  17. -- style flags: 0
  18. -- line height: 30
  19. -- part name: 
  20.  
  21.  
  22. -- part 4 (field)
  23. -- low flags: 00
  24. -- high flags: 6002
  25. -- rect: left=91 top=97 right=264 bottom=157
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 3
  30. -- text size: 18
  31. -- style flags: 0
  32. -- line height: 30
  33. -- part name: 
  34.  
  35.  
  36. -- part 5 (field)
  37. -- low flags: 00
  38. -- high flags: 6002
  39. -- rect: left=156 top=97 right=264 bottom=222
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 3
  44. -- text size: 18
  45. -- style flags: 0
  46. -- line height: 30
  47. -- part name: 
  48.  
  49.  
  50. -- part 6 (field)
  51. -- low flags: 00
  52. -- high flags: 6002
  53. -- rect: left=221 top=97 right=264 bottom=287
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 1
  57. -- font id: 3
  58. -- text size: 18
  59. -- style flags: 0
  60. -- line height: 30
  61. -- part name: 
  62.  
  63.  
  64. -- part 7 (field)
  65. -- low flags: 00
  66. -- high flags: 6002
  67. -- rect: left=286 top=97 right=264 bottom=352
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 3
  72. -- text size: 18
  73. -- style flags: 0
  74. -- line height: 30
  75. -- part name: 
  76.  
  77.  
  78. -- part 8 (field)
  79. -- low flags: 00
  80. -- high flags: 6002
  81. -- rect: left=351 top=97 right=264 bottom=417
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 1
  85. -- font id: 3
  86. -- text size: 18
  87. -- style flags: 0
  88. -- line height: 30
  89. -- part name: 
  90.  
  91.  
  92. -- part 9 (button)
  93. -- low flags: 00
  94. -- high flags: A003
  95. -- rect: left=441 top=277 right=320 bottom=506
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 1
  99. -- font id: 0
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 16
  103. -- part name: Bereken
  104. ----- HyperTalk script -----
  105. on mouseUp
  106.   -- Init variables
  107.   set cursor to 4    --put up watch cursor to indicate waiting
  108.   set lockscreen to true  --so only final change is displayed (faster)
  109.   put 5 into numberOfRows
  110.   put 7 into numberOfColumns
  111.  
  112.   -- put 0s in total COLUMN at right
  113.   repeat with row = 2 to numberOfRows
  114.     put 0 into line row of card field numberOfColumns
  115.   end repeat
  116.  
  117.   --put 0s in total ROW on bottom
  118.   repeat with col = 2 to numberOfColumns+1
  119.     put 0 into line numberOfRows of card field col
  120.   end repeat
  121.  
  122.   -- Calculation of subtotals
  123.   repeat with row = 2 to numberOfRows-1  --add all entries of one row
  124.     repeat with col = 2 to numberOfColumns-1 --add each entry in a row
  125.       put line row of card field col into it --take item (row,col)
  126.       add it to line numberOfRows of card field col
  127.       add it to line row of card field numberOfColumns
  128.     end repeat
  129.   end repeat
  130.  
  131.   -- Calculation of grand total (only add up totals across bottom)
  132.   repeat with  col = 2 to numberOfColumns-1
  133.     add line numberOfRows of card field col to line numberOfRows of card field numberOfColumns
  134.   end repeat
  135.  
  136. end mouseUp
  137.  
  138.  
  139.  
  140.  
  141. -- part 12 (field)
  142. -- low flags: 00
  143. -- high flags: 6002
  144. -- rect: left=416 top=97 right=264 bottom=500
  145. -- title width / last selected line: 0
  146. -- icon id / first selected line: 0 / 0
  147. -- text alignment: 0
  148. -- font id: 3
  149. -- text size: 18
  150. -- style flags: 0
  151. -- line height: 30
  152. -- part name: 
  153.  
  154.  
  155. -- part 13 (button)
  156. -- low flags: 00
  157. -- high flags: 2000
  158. -- rect: left=2 top=271 right=322 bottom=55
  159. -- title width / last selected line: 0
  160. -- icon id / first selected line: 20098 / 20098
  161. -- text alignment: 1
  162. -- font id: 0
  163. -- text size: 12
  164. -- style flags: 0
  165. -- line height: 16
  166. -- part name: 
  167. ----- HyperTalk script -----
  168. on mouseUp
  169.   go home
  170. end mouseUp
  171.  
  172.  
  173.  
  174. -- part 19 (field)
  175. -- low flags: 01
  176. -- high flags: 2002
  177. -- rect: left=8 top=37 right=79 bottom=196
  178. -- title width / last selected line: 0
  179. -- icon id / first selected line: 0 / 0
  180. -- text alignment: 1
  181. -- font id: 3
  182. -- text size: 18
  183. -- style flags: 256
  184. -- line height: 30
  185. -- part name: 
  186.  
  187.  
  188. -- part 20 (field)
  189. -- low flags: 01
  190. -- high flags: 2002
  191. -- rect: left=195 top=37 right=79 bottom=509
  192. -- title width / last selected line: 0
  193. -- icon id / first selected line: 0 / 0
  194. -- text alignment: 0
  195. -- font id: 3
  196. -- text size: 18
  197. -- style flags: 0
  198. -- line height: 30
  199. -- part name: 
  200.  
  201.  
  202. -- part contents for card part 1
  203. ----- text -----
  204.  
  205. Hotel
  206. Auto
  207. Diner
  208. TOTAAL
  209.  
  210. -- part contents for card part 4
  211. ----- text -----
  212. Ma
  213. 25
  214. 48
  215. 34
  216. 107
  217.  
  218. -- part contents for card part 5
  219. ----- text -----
  220. Di
  221. 45
  222. 25
  223. 26
  224. 96
  225.  
  226. -- part contents for card part 6
  227. ----- text -----
  228. Wo
  229. 50
  230. 22
  231. 89
  232. 161
  233.  
  234. -- part contents for card part 7
  235. ----- text -----
  236. Do
  237. 35
  238. 54
  239. 43
  240. 132
  241.  
  242. -- part contents for card part 8
  243. ----- text -----
  244. Vr
  245. 40
  246. 26
  247. 28
  248. 94
  249.  
  250. -- part contents for card part 12
  251. ----- text -----
  252. Totaal
  253. 195
  254. 175
  255. 220
  256. 590
  257.  
  258. -- part contents for card part 19
  259. ----- text -----
  260. ONKOSTEN
  261.  
  262.  
  263.  
  264. 0
  265.  
  266. -- part contents for card part 20
  267. ----- text -----
  268. Week van 6 april 1988